home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 78
/
078.d81
/
hello connect
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
664b
|
16 lines
5 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
10 poke53272,21:poke648,4:poke55,0:poke56,160:poke51,0:poke52,160:gosub38
12 sys57812"sid player",8,0:poke780,0:poke781,0:poke782,192:sys65493
14 sys57812"font",8,0:poke780,0:poke781,0:poke782,100:sys65493
16 sys57812"music",8,0:poke780,0:poke781,0:poke782,108:sys65493
30 print"[144]load"chr$(34)"presenter"chr$(34)",8"
32 print"run"
36 poke631,13:poke632,13:poke198,2:end
38 poke53281,0:poke53280,0:x$=chr$(13)+""
40 a$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
42 printchr$(142)"[147][155]"x$"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
44 print" [192][155][192][192][152][192][192][152] returning to loadstar... [146][192][192][155][192][192][192]"x$;
46 print"[145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
48 fori=2to10:a$=mid$(a$,5):poke214,24-i:print:printspc(20-len(a$)/2)"[158]"a$""
50 next:return